Oa cee cl cel ce cel oe el el ce ce cl el el el oe ee ee od 
Ce eel ee oe el el el ce cee cee oe ll el el el el ol oe el 
Cl cel cel el eel ce el cee el oe el ce eo el ol el el eh ee ad 


oe eee 
ee ee eee oe ee 
ee — 
. oak cae ane 
coe ee 


Ce ee 
CE ee 
Ce eel ek el el el el el ee el el el el ek el od 


re re 
ce [oe el 
ne -—— 

te ee 

Ae 

te ke be 

ak BA kk ee 

Ate te fobs 

a oe ta he ke 

kh te bk te 

ka te he ke 

oe ke be Ek 

a te 

Ae be be te 

A A 


a ke ke te be be te te be te be te te te ae ee ke ke ka a 
ha. Oe be be. Oe be be. be Oe be be be be be. be. te. te. be te te 
hee Oe Oe be be be be be be be be be be be be be te te te te te 


**F ILE**1D**SHFDIR 
SSSSSSSS HH HH FFFFFFFFFF DDDDDDDD IIIII1 RRRRRRRR 
SSSSSSSS_ HH HH FFFFFFFFFF DDDDDDDD II1111 RRRRRRRR 
$$ HH HH FF DD DD Il RR RR 
$$ HH HH FF DD DD II RR RR 
$$ HH HH FF DD DD Il RR RR 
SS HH HH FF DD DD II RR 
SSSSSS HHHHHHHHHH FFF FFF FF dD DD II RRRRRRRR 
SSSSSS HHHHHHHHHH FFF FFF FF DD DD Il RRRRRRRR 
SS HH HH FF DD DD II RR RR 
SS HH HH FF DD DD II RR RR 
SS HH HH FF DD DD II RR RR eos 
SS HH HH FF DD DD I] RR RR ° 
SSSSSSSS HH HH FF DDDDDODD III] RR RR ee 
SSSSSSSS HH HH FF DDDDDDDD IIII11 RR RR . 
LL III] SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL 111111 SSSSSSSS 
LLLLLLLLLL HII! SSSSSSSS 


0- 


: 1 it MODULE SHFDIR ( sass GUAGE, (BL1$32). 

GBR MSE BEBE? 

; 4 004 d= 

H 5 005 BEGIN 

ey 007 1 | 

: 3 0008 : PETTIITILI LILLIE LLL LLL LLL ili Tiiiiiiiiiiiiiiitiiil 
: '® 

Fs 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 11 011 17 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 \¢ Big : re ALL RIGHTS RESERVED. * 
Ps 
: 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sorte? * 
; 15 0015 1 !* ONLY IN CORDANCE WITH THE $ UCH LICENSE AND WITH THE * 
; 16 B28 1 !®* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR Y OTHE * 
; 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i id ; = TRANSFERRED. * 
3 'e ® 
; $3 o0s) 1 !* He gripe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; ; 00 ¢ 1 !® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; Si B05z : > CORPORATION. ¥ 
3 ‘® ® 
: 5 $058 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 6 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 7 0027 1! * 
iy 0028 1 !* * 
3 3 34 1 Lee eee RARER RARER EEE E EEE ATER AEE AEA 
Hy 0 0030 1 

; 1 0031 1 !+4+ 

3 ; 4 1! 

; 0035 1! FACILITY: F11ACP Structure Level 2 

H 4 0034 1! 

: 5 0035 1 | ABSTRACT: 

3 6 0036 1} 

3 4 it 44 ; This routine either extends or compresses a directory file. 

; 9 0039 1 | ENVIRONMENT: 

:; 40 ppg 1} 

Sy 041 1! STARLET operating system, including privileged system services 

: 42 98 4 1! and internal exec routines. 

3; 65 0045 1! 

; 644 Boe 1 !e- 

; 6 «645 045 1! 

:; 46 00 1! 

3 i 4 nt 4 : AUTHOR: Andrew C. Goldstein, CREATION DATE: 15-Apr-1977 13:25 

:; #249 0049 1 | MODIFIED BY: 

: 50 0050 1! 

> a 0051 1! v03-007 CDS0004 Christian D. Saether eo-Auget 1984 

; 26 O026 1! Call routine to mark fcbs stale clusterwide when 

3 34 oF ' messing with the directory file. 

3 5 $088 1! v03-006 CDS0003 Christian D. Saether 11-Apr-1984 

eo Bpes 1! When creat ing new buffers in shuffle operations, use 

Oe 057 1! the special [bn of -1 to avoid referencing real lbn's 
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; 28 R28 } H in other directories. | 

: 60 060 1 | v03-005 LMP0203 L. Mark Pilant 29-Feb-1984 10:26 | 

3; 68) 061 1! agnore the ACL segment in the header when re- i bby the 

3 6 b0e6 1 | directory FCB resulting from a directory extension during 

; of Ooer ; } a split operation. | 

: 65 0065 1! v03-004 cps0002 Christian D. Saether 30-Dec-1983 

; $6 Boog : Use L_NORM Linkage and BIND_COMMON macro. 

: 68 0068 1} VO3-003 ACG0367 Andrew C. Goldstein, 26-Oct-1983 19:51 | 

3 ; 534 } Update directory highwater mark when extending 

ae 0071 1! v03-002 cps0001 Christian D. Saether 3-0ct-1983 | 

3 ait : } Setup CURR_LCKINDX prior to reading directory header. 

; # 0074 1 i v03-001 AcGo271 Andrew C. Goldstein, 23-Mar-1982 9:57 | 

: Le th } Return unique error on directory allocation failure 

oe 0077 1! v02-007 ACG0208 Andrew C. Goldstein, | 15-Oct-1981 18:31 | 

$ re th : Add segmented directory record support 

° + | 

5 80 0080 1! v02-006 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:26 

ae 0081 1! Previous revision history moved to F11B. REV | 

; 8 0082 1 !e« 

[Ss 0083 1 | 

3 84 0084 1 

3 85 0085 1 LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 

; 86 0086 1 REQUIRE 'SRCS:FCPDEF.832'; 

; 87 1077 1 

; «88 1078 1 

; «89 1079 1 FORWARD ROUTINE 

; 1080 1 SHUFFLE DIR : L_NORM NOVALUE, ! extend or compress directory file 

; 91 1081 1 FIX_HEADER : LINORM NOVALUE, ! update directory file header & FCB 

; 692 1082 1 HANDLER; ' Local condition handler | 
| 
| 
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GLOBAL ROUTINE SHUFFLE_DIR (DIRECTION) : L_NORM NOVALUE = 


lee 
! 
FUNCTIONAL DESCRIPTION: 


This routine extends or compresses a directory file. It is called 

to make free space in a block which is full or to squish out a block 
which is completely empty. If allocated but unused blocks are present 
at the end of the directory or if a squish is being done, the 

blocks are shuffled in place. Physically extending the directory 
requires reallocating and copying. 


CALLING SEQUENCE: 
SHUFFLE_DIR (ARG1) 


INPUT PARAMETERS: | 
ARG1: +1 to extend the directory 


QLEFSRALLSSSLESR 
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-1 to squish 


INPUTS: 
FCB: FCB of directory file 
VBN: current VBN of director 


IMPLIC 
“BUFFER: address of current directory block 
| 
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T 
I 
IR_ENTRY: address of current directory record 
IR_VERSION: address of version within record 
OUTPUT PARAMETERS: 

NONE 


IMPLICIT OUTPUTS: 
(for extension ~7 
DIR_VBN: current VBN of directory, updated 
DIR_BUFFER: address of current directory block, updated 
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0 
0 
0 
1 
1 
1 
1 
1 
1 DIR_ENTRY: address of current directory record, updated 
1 DIR_VERSION: address of version within record, updated 
1 DIR_END: address of end of data in dirrectory block, updated 
2 (for compress ton) 
38 § DIR_ENTRY: 0 
ROUTINE VALUE: | 
35 $ NONE 
36 2 
37 § SIDE EFFECTS: 
3 $ directory extended, storage map altered, directory FCB altered 
40 on 
re BEGIN | 
rk 3 | 
44 LINKAGE 
45 L_MAKE_POINTER = CALL : 
ri 5 GLOBAL (MAP_POINTER = 9); 
48 $ BUILTIN 
49 8 FP; 
50 9 
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COPY_BLOCK; ! directory block copy code 


GLOBAL REGISTER 
MAP_POINTER = 9 : REF BBLOCK; ! pointer to current retrieval pointer 
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LABEL | 


LOCAL 
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: REF BBLOCK, 
: REF BBLOCK, 
: REF BBLOCK, 


address of FIB for this operation 
address of FCB for directory 
gceress of directory file header 
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! 
i | 

ey PEACE : L tl | 

° ! in place co a 
66 SIZE, ! size fo extend difectory to 
6 W_LBN, ' starting LBN of new space 
64 BUFFER : REF BBLOCK, ! buffer address of current directory block 
65 COMP _BUFFER, ! buffer address used for compression 
o8 NEW BUFFER, ' address of newly read expanded block 
6 OFFSET, ' VBN offset in shuffle copy 
68 P1 : REF BBLOCK, | directory record pointer 
69 END_POINT : REF BBLOCK, ! pointer to end of data in block 
70 REC_OFFSET, ! block offset of current record 
4 VER_OFFSET; ! block offset of current version 
rs BIND_ COMMON; 
i} DIR_CONTEXT_DEF; 
77 EXTERNAL ROUTINE 
78 MAKE _FCB_STALE : L_NORM NOVALUE, ! mark fcb as stale clusterwide. 
79 SAV : L_NORM, ! save reentrant context area 
Bt READ_HEADER : LINORM, Looet tis lectern ee | 
of CHARGE QUOTA : L“NORM, i charge space to user's quota 
8 ALLOC BLOCKS : LINORM, ! allocate blocks from storage map 
84 MAKE_POINTER : L-MAKE_POINTER, ! build header map pointer | 
85 : x ' read a disk block | 


' assign new LBN to buffer 
! write block to disk 

! fabricate a block buffer 
! invalidate a block buffer 
; pe next directory record 

' truncate file header 
! invalidate related file windows 
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NEXT_R : 
TRUNCATE HEADER : L_N 
ZERO_WINBOWS : LINORM 
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! First save the current context, since this is a secondary file operation. 
Set up the secondary context pointers. Then read the directory file header. 


SAVE_CONTEXT (); 
PRIMARY_FCB = FCB = .DIR_FCB; 
MAKE_FCB_STALE (.FCB); 
CURR_LCKINDX = .DIR_LCKINDX; 
B = SECOND FIB; 
CHSMOVE (FIBSS_FID, LOCAL_FIBCFIB$W_D1DJ, FIBCFIB$W_FIDJ); 
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é RESTORE CONTEXT : LNORR 
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HEADER = READ_HEADER (0, .FCB); 
If the eresevery ve being onpended. see if space is available. If net, 


1 
! allocate a new larger area. The next VBN to use is the current directory 
! EOF block number. If the block is not present in the file, the directory 
} must be physically extended. 
COPY BLOCK: BEGIN 
IN_PCACE = 1; ! assume in place shuffle 
IF .DIRECTION GTR 0 
THEN 

BEGIN 

Hagzt COUPER _EPOLKS + 1 GTRU .FCBCFCBSL_FILESIZEJ 

BEGIN 


Compute the number of blocks needed (50% of the current directory size) 
and allocate the new space contiguously. Limit the number of blocks 
allocated to what will fit in the map area of the header. 
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IN PLACE = 
NEQ_SI F = ,FCBCFCBSL_FILESIZE] + MAXU (.FCBCFCBSL_FILESIZE]/2, 1); 
; IF TFCBCFCBSL Fptesi ee GEQU 1024 THEN ERR_EXIT (SS$_DIRFULL); 
IF .NEW_SIZE GTRU 1024 THEN NEW SIZE = 1022; 
CHARGE _GUOTA (.HEADERCFH2$L_FILEOWNER], .NEW_SIZE - .FCBCFCBSL_FILESIZE), 
35 BITLIST (QUOTA_CHECK)); 
$39 FIBEFIBSV ALCON) = 1; 
38 FIBCFIBSV-FILCON) = 1; 
39 IF NOT ALCOC_BLOCKS (.FIB, .NEW_SIZE, NEW_LBN, NEW_SIZE) 
40 THEN ERR_EXIT (SS$_DIRALLOC); 
41 UNREC_COONT = .NEW SIZE; 
; UNREC>LBN = .NEW LEN; 
UNREC"RVN = .CURRENT_RVN; 
END 
ELSE 
NEW_LBN = .FCBCFCBSL_STLBN); ! use existing space 


Now copy the directory blocks (following code is for expansion). For | 
maximum safety, we copy in reverse order, so that if the operation fails 
or the system crashes, we have duplicate, rather than missing, directory 
entries. We update the file header after the first block has been 
written in an in place copy for the same reason. 


OFFSET = 0; ! shuffle offset 
DECR VBN FROM -FCBCFCBSL_EFBLK] TO 1 DO 


8 
BUFFER = READ_BLOCK (.VBN+.FCBCFCBSL_STLBNJ-1, 1, DIRECTORY_TYPE); 
Hen, we reach the VBN at which the shuffler was called, we split the 
ock. 
We find the first record past the midpoint (past the 3/4 mark if 


this is the last block) and split into two buffers. Note that this logic 
depends on the availability from the buffer manager two blocks of 
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16-Sep-1984 01:10:0 VAX=11 
1e-808- 138s 93548589 = BTS 
adjacent LBN's referenced in direct sequence. 


IF .VBN EQL .DIR_VBN 
THEN 


+ 
UNTIL .P1 GEQA .LIMIT DO 
BEGIN 


Po = .P1; 
Pl = NEXT_REC (.P1); 
END; 


! The point at which we split depends on the the relation between the 
! Location of the new entry and the two split pointers. 


baw ce oe ew ewe ccs perce rn cen tawn errr emeowrocmo owen + 

' ' record | i 

daewoo wore mewn ewes -oeeeeececen gee w cee er ee wee eee + 
p2 P1 


Pl is now at the record boundary gust past the half (or 3/4) mark, 
and P2 is at the previous record boundary. If the new ertry precedes 
P2, we split at P2 and the entry goes into the former block. If the 
new entry is at Pl or Later, we split at P1 and the entry goes into 
the latter block. If the entry is a new version of the record at P 

we apt it at Pi unless the record is already the last in its block, in 
which case we split at P2. Finally, if we discover that P1 is at the 
end of the block and P2 is at the ps. (i.e., the block contains 
one large record), we have to split the record instead. Got it? 


IF_ .REC_OFFSET + .BUFFER GTRA .P2 
THEN 


BEGIN 
REC_OFFSET = .REC_OFFSET + .BUFFER - .P2; 
VER-OFFSET = .VER-OFFSET + .BUFFER = .Pe: 
DIR-VBN = .DIR_VBN + 1; 


ELSE IF .REC_OFFSET + .BUFFER EQL .P2 
AND .DIR_VERSION NEQ 0 
THEN 

BEGIN 

IF .PICDIR$W_SIZE] EQL 65535 

THEN 


BEGIN 
IF .P2 EQL .BUFFER 
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¢ THEN 
P2 = 0 ! flag need for record split 

4 ELSE 

5 BEGIN 

§ REC_OFFSET = .REC_OFFSET + .BUFFER - PGi 

VER_OFFSET = .VER_OFFSET + .BUFFER = .P2; 
8 DIR_VBN = .DIR_VBR + 1; 
% END; 
END 

1 ELSE 

¢ P2 = .P1; 

? END; 

5 ! We now do either a block or record split; the Latter is flagged here 

! by P2 set to zero. The block split is performed by allocating a new 
37 ' buffer and copy ing the records past the split point (now denoted by P2) 
! into the new buffer, and then erasing the copied records from the 

9 ! first buffer. 
40 : 
41 
4 IF .P2 NEQ 0 
4 THEN 
44 BEGIN 
45 Pl = .P2 = BUFFER; ! save split offset point 


! Use the special lbn of -1 for the new buffer. A reset_lbn call will 


48 establish the correct lbn prior to writing it. 


BUFFER2 = CREATE_BLOCK (- 
CHSMOVE (Si2-.P1, .P 


DIRECTORY, TYPE) ; 
CHSCOPY (2, UPLIf WORD (- 
END 


§12-.P1, .P2); 


Otherwise we do a record split. The principle is similar to the block 

split, except that we orweys split at the point of version insertion. 

Assumptions: the current directory buffer contains only one record, 

which HL a... we are adding a new version. Allocate a buffer and 
e 
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duplicate ock in it to set up the record header. Then carve out 
the appropriate set of versions from each record and flag the records. 
ELSE 
BEGIN 
Pi = .P1 = BUFFER; 
HEADER_LENGTH = (BUF FERCDIRSB_NAME COUNT) + 1 AND NOT 1) + DIRSC_LENGTH; 
8 ! Use the special lbn of -1 for the new buffer. A reset_lbn call will 
4 2 establish the correct lbn prior to writing it. 
1 
§ BUFFER2 = CREATE BLOCK (-1, 1, DIRECTORY_TYPE); 
74 CHSMOVE (512, .BOFFER, . uF FER); 
75 4 CHSCOPY (2, UPLIT WORD (-1), 0 
76 5 =. VER_OFFSET, BUFFERS VER OFFSET): 
77 § CHSCOPY (.P1=.VER"OFFSET+2, .BUFFERZ2+.VER_OFFSET, 0, 
78 6 512-.HEADER_LENGTH, .BUFFER2+.HEADER_LENGTH) ; 
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; 136 

; 9 1 e pur reRcpsRsy SIZEJ]_= .VER_OFFSET = 2; f 

; ! 4 BUFFER2CDIRS@_SIZE] = .P1-- .VER_OF FSET + ,HEADER_LENGTH = 2; 
: ; 1 ye f ! Pick the record to contain the new entry. We use the smaller of the 

3 4 1375 7 ! two. 

: 3Be 1398 FS 

; 7 1 6 7 IF .VER_OFFSET = .HEADER_LENGTH GTRU .P1 = .VER_OFFSET 

; 1377 7 THEN 

; 389 1 8 BEGIN 

; 137 DIR_VBN = .DIR_VBN + 1; 

; 39 1 80 VER“OFFSET = .READER_LENGTH; 

3 3 1381 END; 

mit on 

; 395 1384 6 ! Set the higher block to its new LBN and write it. Bump the offset so 

; 396 1385 6! that subsequent file to file copies now 90 to corresponding VBN's. 

s 597 1 58 6! If this is an in place copy then fix up the header now. 

: 399 1388 8 

: 400 1389 6 RESET_LBN (.BUFFER2, .VBN+.NEW_LBN); 

; 401 1390 6 OFFSET = -1; 

; 40 1391 6 WRITE BLOCK (.BUFFER2); 

: 40 1 % t F_.IR_PLACE AND .VBN EQL .FCBCFCBSL_EFBLK] 

3; 404 139 g THEN FIX_HEADER (.HEADER, V; 

3 ret : Re : END; ! end of block split condition 

: 407 1396 : ! For the rest of the copy loop, assign the output LBN to the buffer and 
; 408 1397 ‘ write it. On an in piace copy kick out of the oop after we have done 
; 409 1398 5 ! the block split. Otherwise, ix the header after the first write. 
of iB 

; 41 1401 5 RESET_LBN (.BUFFER, .VBN+.NEW_LBN+. OFFSET); 

3 (41 1408 5 WRITE~BLOCK (.BUFFER); 

3; 414 1403 § IF .IR_PLACE 

: ae 1208 6 THEN BEGIN 

> 417 1406 6 IF .OFFSET NEQ 0 

; 418 1407 6 THEN LEAVE COPY_BLOCK 

; «419 1408 6 ELSE IF .VBN EQC .FCBCFCBSL_EFBLK] 

3 ? 109) g hi FIX_HEADER (.HEADER, 1); 

: ? § 101) ? END; ! of in place copy loop 

: 424 1218 4 ! Now deailocate the old directory blocks. Then build retrieval pointers 
: 425 1414 4 ! for the new blocks in the file header. Do the truncation with a local 
3; 4 § 1415 4 ! condition handler enabled for special error recovery. 

: 058 1419 4. 

: 429 1418 4 .FP = HANDLER: 

; 4 1419 4 TRUNCATE_HEADER (.FIB, .HEADER); 

3 632 i ? ? FP = 0; 

: 4 1422 4 HEADERCFH2$B_MAP_INUSE) = 0; 

; ote 14 § 4 CHSFILL ‘8 T. HEADER ATty 4 ACOFFSET) - -HEADERCFH2$B_MPOFFSET]) * 2, 
: 435 1424 4 .HEADER + .HEADERLFH2$B_MPOFFSETJ*2); 
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16-Sep-1984 01:10:0 VAX-11 Bliss-32 V4.0-742 P y 
12286871382 93:50:89 DISKSVMSMASTER:CF1iX.SRCISHFDIR.B32; 1)" (2) 
MAP_POINTER = .HEADER + .HEADERCFH2$B_MPOFFSET)*#2; 

MAKE_POINTER (.NEW SIZE, .NEW_LBN, .HEADER); 


UNREC_COUNT = 0; 

KERNEC_CALL (ZERO_W NDOwS 

CHARGE-QUOTA (.HEADERCFH2SL FILEOWNER], .NEW_SIZE - .FCBCFCBSL_FILESIZE), 
BITLIST (QUOTA_CHARGE)); 


END ! of expansion conditional 
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! For an inplace compression, we copy the blocks in forward order, again 
for maximum safety. 


NTRY = 0; ! indicate no block resident 
IDATE (.DIR_BUFFER); i punt the block being squished out 
vBN FROM .DTR_VBN+1 TO .FCBCFCBS$L_EFBLK] DO 


COMP_BUFFER = READ BLOCK (.VBN+.FCBCFCBS$L_STLBNJ-1, 1, DIRECTORY_TYPE); 
RESET_LBN (.COMP BOFFER, .VBN+.FCBCFCBSL_STLBNJ-2); 
WRI TETBLOCK (, COMP_BUFFER); 


| 


waar 4 


Now, for an extension copy or a compression, update the file header. 


FIX_HEADER (.HEADER, .DIRECTION); 
END; ! end of block COPY_BLOCK 
! For an extension, read back the block where the new entry will go 


' and update the lookup pointers. For a compression, save the pointer 
in offset form so it can be used by the remove cleanup in case of error. 
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IF .DIRECTION GTR 0 
THEN 


-DIR_VBN+.FCBCFCBSL_STLBNJ-1, 1, DIRECTORY_TYPE); 
»NEW_BUFFER; 


Finally switch back to primary context. 


a a a a a ee ee ee ed ed dd 
PRP P PEPPER PPP PPP PPP PPP PPP PPP PPP PPP PPP PPP EE 


OO NIN NN NNN IOO OOOO 


+ 
e 
. 
o 
i 
o 
. 
. 
. 
e 
. 
o 
. 
. 
+ 
o 
. 
o 
o 
. 
e 
. 
2 
. 
o 
. 
oe 
. 
o 
7 
é 
. 
a 
. 
o 
. 
e 
. 
o 
. 
. 
e 
. 
o 
. 
o 
° 
. 
o 
o 
. 
o 
7 
* 
. 
e 
. 
a 
. 
o 
. 
6 
. 
e 
. 
° 
. 
o 
. 
- 
~ 
oe 
+. 
. 
. 
e 
. 
o 
. 
o 
. 
e 
. 
. 
. 
e 
. 
Ye 
. 
e 
. 
e 
. 
. 
. 
. 
€ 
. 
° 
. 
o 
. 
© 
° 
. 
. 
e 
. 
. 


PRIPIPOPOPIPRI ANNI NIE NII WII RIPPIN PIPIPININI NNW BS MUTT EBB PWP PREP PPP PPP EEE 
om = =——COCZD 
z =e MN 

DZzDeEca 
t+ = 
omoawz 
o~-ZzcCc 

— — wh 
znzez 2 Zs 
‘—=z— | <=<mm 
<m 2D 

“uu 

ze wD 

mam 

—<—£ce 2 om> 
2 £o 

ume 
o7Oww 

Se 

an ZOMwr"O 
mao 

cc mx 

—-— nr 


RESTORE _CONTEXT (); 
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! end of routine EXTEND_DIR 
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SHFDIR 16-Sep-1984 01:10:0 VAX-11 Bliss-32 V4.0-742 Page 13 
104-000 12-80-1382 93:49:98 DISKSVMSMASTER:CFIiX.SRCISHFDIR.B32:1 >” (2) 
9 0244 : : 
14 58 A 45 SUBW3 #2, VER_OFFSET, @BUFFER + 1369 F 
RF 18 AE i c3 4A SUBL3 VER_OFFSET, P1 m0 : 1390 : 
51 FE A94 4F MOVAB <-2(READER LENGTH) ROJ, R1 : ; 
10 BE 1 8 4 MOVW R1, @BUFFER : ; 
51 9 C3 00258 SUBL3. HEADER_LENGTH, VER_OFFSET, 91 + 1376 : 
0 18 AE 8 C3 0025¢ SUBL3 VER_OFFSET, P1, RO : ; 
5 51 01 0 61 CMPL = R-1, "RO : : 
06 1B 00264 BLEQU 18 : ; 
0c BE D6 0266 INCL  @12(SP) + 1379 ; 
58 DO 00269 MOVL —~ HEADER LENGTH, VER_OFFSET + 1380 ; 
24 BES? OF 9 $ 18$: PUSHAB a@NEW LEN VBNJ 3 1389) 3 
AS DD PUSHL eurr en ; | ; 
00006 CF 0 FB 00 7 CALLS #2, RESET_LBN ; : 
1 AE 1 CE 00278 MNEGL #1, OFFSET : 1390) ; 
10 AE dD 0027C PUSHL  BUFFER2 : 1391. 3 
00006 CF 01 FB 00 7F CALLS #1, WRITE_BLOCK : : 
10 oF E9 00284 BLBC IN_PLACE, 19$ 3 1392) : 
3C AG 57 D1 00287 CMPL VBR, 60(FCB) : | ; 
OA 12 00288 BNEQ 19% : : 
01 oD 00280 PUSHL #1 ; 1393) ’ 
08 AE DD 0028F PUSHL ADER : | ; 
0000v CF 02 FB 00 3% CALLS #2, FIX_HEADER : | ; 
50 57 24 AE C1 00297 19$:  ADDL3 NEW_LBN> VBN, RO : 1401) ; 
1C BEGO SF 0029C PUSHAB aOFFSETCRO) : | : 
18 AE DD 002A0 PUSHL : | ; 
00006 CF 02 FB 002A3 CALLS #2, RESET_LBN : : 
14 AE DD 002A8 PUSHL BUFFER + 1402 : 
00006 CF 01 FB OO2AB CALLS #1, WRITE_BLOCK : | : 
18 6E £9 00280 BLBC IN PLACE, ~21$ + 1403 ; 
1¢ AE D3 00285 TSTL OFFSET + 1406 : 
03 13 002B6 BEQL : ; 
00E3 31 00288 BRW 28$ : ; 
3C AG 57 D1 002BB 208: CMPL = VBN, 60(FCB) + 1408 | : 
OA 12 002BF BNEQ 21$ : ; 
01 oD 002C1 PUSHL #1 > 1409 ; 
08 AE DD 002¢3 PUSHL 7 : ; 
0000v CF 0@ FB 002C6 CALLS #2, FIX_HEADER : : 
62 57 £5 002CB 21$: SOBGTR , 228 + 1245. : 
03 11 OO2CE BRB : ; 
FEIA 31 00 09 328: BRW 4 : ; 
6D 0000v CF 9€ 002D3 23$: | MOVAB HANDLER, (FP) : 1418 F 
04 AE DD 00208 PUSHL HEADER : 1419 ; 
0c AE DD 0 DB PUSHL aU : ; 
00006 CF 02 FB 002D CALLS #2, TRUNCATE_HEADER : ; 
6p D4 O02E CLAL > 1420 | ; 
50 04 AE A ci O2E ADDL3 #58, HEADER, RO + 1422 ; 
60 94 OO2EA CLRB : ; 
50 04 AE 01 C1 OO2EC ADDL3 #1, HEADER, RO + 1423 : 
51 60 9A O02F1 MOVZBL (RO), R : : 
52 04 ar 08 C1 0 F4 ADDL3 #2, HEADER, R2 : ; 
5 : 9A 002F9 MOVZBL (RO), RO ; 3 
50 1 C2 O02FC SUBL2. R11, R : : 
¢9 o¢ 4 FF MULL #2, R : ; 
5 04 BE41 3E 02 MOVAW @HEADERCR1), R7 > 1424 | ; 
50 00 6E 09 2C 00307 movcS #0, (SP), #6, RO, (R7) ; | : 
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- VAX-11 Bliss-32 V4.0-742 age 15. 

vith 6 ib ~$20-] 984 9}: if: 9% DISKSVMSMAST STERICFIIX. SRCISHFDIR.B32; 4 B 
1 Q ; 

Hi 3 6 4 ate END_POINT + 1674 | 

00006 CF 0} FB 6 3 CALLS #1, NEXT_REC ; 

¥ nei 02 AO SE 08D «Roun btRb) “tane’ 1475 

00006 CF 00 FB 003F1 31$ CALLS #0, RESTORE. CONTEXT : 1481. 

04 003F6 RET + 1483 
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ROUTINE FIX_HEADER (HEADER, DIRECTION) : ORM NOVALUE = 


+ 
a 


FUNCTIONAL DESCRIPTION: 
This routine updates the file header of the directory being 
extended or compressed, and also updates the directory FCB. 
CALLING SEQUENCE: 
FIX_HEADER (ARG1, ARG2) 
INPUT PARAMETERS: 
ARG1: address of file header 
ARG2: +1 for extension 
-1 for compression 
IMPLICIT INPUTS: 
DIR_VBN: VBN of directory ome split or compressed out 
DIR_FCB: address of directory FCB 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
file header updated, FCB updated 


BEGIN 
P 

HEADER : REF BBLOCK; ! file header arg 

BIND_COMMON; 

EXTERNAL ROUTINE 
INIT_FCB2 L_NORM, ! initialize FCB 
ZERO. IDX L_NORM, ! initialize directory index 
CHECKSUM L_NORM, ' compute file header checksum 
WRITE_HEADER L_NORM; ! write file header 


this file header supports it, stuff the high water field to 


Up 
Tiregyery, incon in the FCB. Finally checksum and write the file header. 
be the allocated size. 


BBLOCK CHEADERCFH2$W_RECATTRI, FATSW_EFBLKL) = 


date the end of file mark in the header and the FCB. Then adjust the 


3 


: ; 41 -BBLOCK CHEADERCFH2$W_RECATTRI, FATSW_EFBLKL] + .DIRECTION; 
; 5 1 rk IF .HEADER CEH2$e IDOF FSET) Gay (SBYTEOFFSET (FH2$L HIGHWATER) +4) /2 
; § ! re AND .HEADER CFH2SC_HIGHWATER) LSSU .BBLOCK CHEADERCFA2$W_RECATTR], FATSW_EFBLKLJ 
; $8 1 46 HEADER CFH2$L_HIGHWATER] = .BBLOCK CHEADERCFH2$W_RECATTR], FATSW_EFBLKLJ; 
; 560 1 48 CLEANUP_FLAGSCCLF_NOBUILD] = 1; 
: 561 154 KERNEL FALL (INIT“FCB2, .DIR_FCB, .HEADER); 
3 3 1550 BBLOCK”CHEADERCFH2$W_RECATTRI, FATS$W_HIBLKL] = .OIR_FCBCFCBSL_FILESIZE); 
; oi ! 1 KERNEL_CALL (ZERO_IDX); 
3 65 1 a CHECKSUM (.HEADER); 
; 36 1354 WRITE_HEADER (); 
; 568 1556 END; ! end of routine FIX_HEADER 
.EXTRN INIT_FCB2, ZERO_IDX 
SEXTRN CHECRSUM, WRITEHEADER 
0000 00000 FIX_HEADER: 
-WORD Save nothing 
50 AC DO 00002 MOVL HEADER, RO 
1€ AO 08 AC AO 00006 ADDW2 DIRECTION, 30(RO) 
50 AC DO 0000B MOVL HEADER, RO 
28 60 91 0000F CMPB Ss (RO), (#40 
O£ 1F 00012 BLSSU '1$ 
4C AO 1€ AO 10 00 FD 0014 CMPZV #0, #16, 30(RO), 76(RO) 
05 18 0001B BLEQU§ 1$ 
4C AO 1€ AO 3C 0001D MOVZWL 30(RO), 76(RO) 
01 AA 08 88 00022 1$: BISB2 #8, 1(BASE) 
04 AC DD 00026 PUSHL HEADER 
00D0 CA DD 00029 PUSHL 208 (BASE) 
00006 CF 02 FB 90¢0 CALLS #2, INIT_FCB2 
51 04 AC DO 00032 MOVL HEADER, R1 
50 0000 CA dO 0036 MOVL g08 (BASE) RO 
1A AI 38 AO BO 0003B MOVW 6(RO), 26(R1) 
00006 CF 00 FB 00040 CALLS #0, ZERO_IDX 
04 AC DD 00045 PUSHL HEADER 
0000G CF 01 FB 00048 CALLS #1, CHECKSUM 
00006 CF 00 FB 00040 CALLS #0, WRITE_HEADER 
04 00052 RET 


; Routine Size: 83 bytes, Routine Base: $CODE$ + 03FB 
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ROUTINE HANDLER (SIGNAL, MECHANISM) = 
ioe 
FUNCTIONAL DESCRIPTION: 
This routine is the condition handler for directory extension, It is 
enabled only during the truncate call Cdealloceting the old directory 


blocks). Normal error Seng) oee would cause the entire directory to 
be dropped on the floor. Since we ts have a new good copy 
as 


PAPA OAOCOOIUIM 


oOo 
CONAN WI OOO~ 


we 
should forge ahead. Note that no error status is returned to the user, 


although we will log a system error. 
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3 1 1 $ 
$ 1 1 : 
3 1 1 : 
3 1 1! 5 
3 1 1: ; 
3 1 } : $ 
3 1 1? 3 
: 1 1! : 
3 1 1} 3 
3 1 1: : 
3 1 . | 3 
3 1 1! $ 
3 1569 1! $ 
3 1570 1! : 
; 137) 1 ! CALLING SEQUENCE: : 
3 See 1 i 1! HANDLER (ARG1, ARG2) 3 
; MY 1573 1! ; 
3; 38 1574 1 ! INPUT PARAMETERS: F 
; 588 1575 1! ARG1: address of signal array 3 
; 589 1576 1! ARG2: address of mechanism array ; 
3; oO 1577 1! 3 
3 591 1378 1 ! IMPLICIT INPUTS: 3 
; 4 4 } FILE_HEADER: address of directory file header : 
; 94 1581 1 ! OUTPUT PARAMETERS: : 
3 399 1386 1! NONE 3 
; 596 1583 1! 3 
; 597 1584 1°! IMPLICIT OUTPUTS: 3 
; 598 1585 1! NONE 3 
; 599 1586 1! 3 
: 600 1587 1 ! ROUTINE VALUE: : ; 
; 601 1588 1! SS$_RESIGNAL or none if unwind : 
r 4 1589 1! 3 
; 60 1590 1 ! SIDE EFFECTS: 3 
: 604 1591 1! file header map area cleaned out 3 
; 605 1336 1! 3 
; 606 1593 1 !-- F 
; 607 1594 1 ; 
; 608 1595 BEGIN 3 
; 609 1596 3 
: 610 1597 MAP 3 
; 6611 1598 SIGNAL : REF BBLOCK, ! signal array arg : 
; olg 1599 2 MECHANISM : REF BBLOCK; ' mechanism array arg 3 
: Bla 1601 | 
; 615 He ! Check the condition code for FCP error exit. Then initialize the header's : 
3 ole 160 ! map area and unwind. On other signals we simply resignal. : 
; 61 1604 : : 
3; 618 1605 : 
3; 619 1o0e IF .SIGNALCCHFSL_SIG_NAME]) EQL SS$_CMODUSER : 
3 $ 9 ait THEN SUNWIND (DEPADR™= MECHANISMCCAFSL_MCH_DEPTH)); : 
3 ? § 1608 RETURN SS$_RESIGNAL; ' status is irrelevant if unwind : 
: 624 1611 1 END; ! end of routine handler | : 


| 
SHFDIR 1b-se Sep-1984 :06 - VAK=11 BLiss-32_v4.0-742 Pace 19! 
905-000 Feta ee Tels PelWGMAS TER cch Tig chcaswrpie.e32210%" chs 


eEXTRN = SYSSUNWIND | 


0000 HANDLER: .WORD Seve afethive 1557 
0 4 ac 00 tae MOVL : 1606 
00000424 aF 8 AQ 01 Bpoe CMPL 2tROD: b+ 60 : 
of Mi $04 EYRE a" : 1607 | 
7E 08 Ac 08 C1 0001 ADDL3 » MECHANISM -(SP) : 
000000006 06 02 FB 0001 CALLS 45°98 SUNWIND : 
0918 8F 3C pole 1$ MOVZWL : 1609 
04 0002 ET 3 1611 

; Routine Size: 36 bytes, Routine Base: SCODES + 044E 
; 625 ba 
> 626 1613 1 END 
; 627 1614 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: SCODES 1138 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
Pane eee ee a Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
;  .$255$DUA28:(SYSLIBILIB.L32;1 18619 46 0 1000 00:01.9 | 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INJTIAL, OPTIMIZE) /LIS=LIS$:SHFDIR/OBJ=OBJ$:SHFDIR MSRC$:SHFDIR/UPDATE=(ENHS$: SHFDIR) 
3 Size: 1134 ¢ ge + 4 data bytes 
3; Run Time: 739.4 
; Elapsed Time: 1:27.7 
3; Lines/CPU Min: 459 
; Lexemes/CPU-Min: 41809 
; Memory Used: 394 pages 
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; Compilation Complete 
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